home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / HTML and CSS Modes / htmlPrefsUpdater.tcl < prev    next >
Encoding:
Text File  |  2001-01-13  |  21.0 KB  |  542 lines
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  HTML mode - tools for editing HTML documents
  4.  # 
  5.  #  FILE: "htmlPrefsUpdater.tcl"
  6.  #                                    created: 99-07-16 21.48.03 
  7.  #                                last update: 01-01-13 10.24.05 
  8.  #  Author: Johan Linde
  9.  #  E-mail: <alpha_www_tools@go.to>
  10.  #     www: <http://go.to/alpha_www_tools>
  11.  #  
  12.  # Version: 3.0
  13.  # 
  14.  # Copyright 1996-2001 by Johan Linde
  15.  #  
  16.  # This program is free software; you can redistribute it and/or modify
  17.  # it under the terms of the GNU General Public License as published by
  18.  # the Free Software Foundation; either version 2 of the License, or
  19.  # (at your option) any later version.
  20.  # 
  21.  # This program is distributed in the hope that it will be useful,
  22.  # but WITHOUT ANY WARRANTY; without even the implied warranty of
  23.  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24.  # GNU General Public License for more details.
  25.  # 
  26.  # You should have received a copy of the GNU General Public License
  27.  # along with this program; if not, write to the Free Software
  28.  # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29.  # 
  30.  # ###################################################################
  31.  ##
  32.  
  33. proc htmlPrefsUpdater.tcl {} {}
  34.  
  35. #===============================================================================
  36. # ◊◊◊◊ HTML mode vars ◊◊◊◊ #
  37. #===============================================================================
  38.  
  39. if {[info exists HTMLmodeVars]} {
  40.     set __tmpind {TR TD TH}
  41.     if {![info exists HTMLmodeVars(pIsContainer)] || $HTMLmodeVars(pIsContainer)} {
  42.         lappend __tmpind P
  43.     }
  44.     if {[info exists HTMLmodeVars(lidtAreContainers)] && $HTMLmodeVars(lidtAreContainers)} {
  45.         lappend __tmpind LI DD DT
  46.     }
  47.  
  48.     if {![info exists HTMLmodeVars(optionalClosing)]} {
  49.         set HTMLmodeVars(optionalClosing) $__tmpind
  50.         prefs::addArrayElement HTMLmodeVars optionalClosing $__tmpind
  51.     }
  52.  
  53.     set __tmp ""
  54.     foreach __tmpind {DIR DL MENU OL TABLE TR UL} {
  55.         if {![info exists HTMLmodeVars(indent$__tmpind)] || $HTMLmodeVars(indent$__tmpind)} {
  56.             lappend __tmp $__tmpind
  57.         }
  58.     }
  59.     foreach __tmpind {APPLET BLOCKQUOTE BODY CENTER DIV FIELDSET FORM FRAMESET HEAD 
  60.     MAP MULTICOL NOEMBED NOFRAMES NOSCRIPT OBJECT OPTGROUP P SELECT} {
  61.         if {[info exists HTMLmodeVars(indent$__tmpind)] && $HTMLmodeVars(indent$__tmpind)} {
  62.             lappend __tmp $__tmpind
  63.         }
  64.     }
  65.     if {![info exists HTMLmodeVars(indentElements)]} {
  66.         set HTMLmodeVars(indentElements) $__tmp
  67.         prefs::addArrayElement HTMLmodeVars indentElements $__tmp
  68.     }
  69.         
  70.     foreach __tmp {elecRBrace elecLBrace electricSemi electricTab htmlPackageToUse lidtAreContainers footers
  71.     hideNetscape hideIE inclEventHandler hideStyleAttrs useAttsApplyToDialogs pIsContainer defaultCommonChars
  72.     indentAPPLET indentBLOCKQUOTE indentBODY indentCENTER indentDIR indentDIV indentDL 
  73.     indentFIELDSET indentFORM indentFRAMESET indentHEAD indentMAP indentMENU indentMULTICOL
  74.     indentNOEMBED indentNOFRAMES indentNOSCRIPT indentOBJECT indentOL indentOPTGROUP
  75.     indentP indentSELECT indentTABLE indentTR indentUL} {
  76.         if {[info exists HTMLmodeVars($__tmp)]} {
  77.             prefs::removeArrayElement HTMLmodeVars $__tmp
  78.             catch {unset HTMLmodeVars(__tmp)}
  79.         }
  80.     }
  81. }
  82.  
  83. #===============================================================================
  84. # ◊◊◊◊ CSS mode vars ◊◊◊◊ #
  85. #===============================================================================
  86.  
  87. if {[info exists CSSmodeVars]} {
  88.     foreach __tmp {elecRBrace elecLBrace electricSemi createWithoutAsking openNonTextFile} {
  89.         if {[info exists CSSmodeVars($__tmp)]} {
  90.             prefs::removeArrayElement CSSmodeVars $__tmp
  91.             catch {unset CSSmodeVars($__tmp)}
  92.         }
  93.     }
  94. }
  95.  
  96. #===============================================================================
  97. # ◊◊◊◊ Element prefs ◊◊◊◊ #
  98. #===============================================================================
  99.  
  100. foreach __tmp [array names htmlElemAttrUsed] {
  101.     set html::ElemAttrUsed($__tmp) $htmlElemAttrUsed($__tmp)
  102.     prefs::addArrayElement html::ElemAttrUsed $__tmp $htmlElemAttrUsed($__tmp)
  103.     prefs::removeArrayElement htmlElemAttrUsed $__tmp
  104. }
  105.  
  106. foreach __tmp [array names htmlElemAttrHidden] {
  107.     set html::ElemAttrHidden($__tmp) $htmlElemAttrHidden($__tmp)
  108.     prefs::addArrayElement html::ElemAttrHidden $__tmp $htmlElemAttrHidden($__tmp)
  109.     prefs::removeArrayElement htmlElemAttrHidden $__tmp
  110. }
  111.  
  112. foreach __tmp [array names htmlElemAttrMore] {
  113.     prefs::removeArrayElement htmlElemAttrMore $__tmp
  114. }
  115.  
  116. #===============================================================================
  117. # ◊◊◊◊ Entity keys ◊◊◊◊ #
  118. #===============================================================================
  119.  
  120. if {[file exists [file join $PREFS HTML "HTML entity keys"]]} {
  121.     source [file join $PREFS HTML "HTML entity keys"]
  122.     foreach key [array names htmlEntityKeys] {
  123.         set htmlEntityKeysProc($key) [list html::InsertCharacter $key]
  124.     }
  125.     bind::fromArray htmlEntityKeys htmlEntityKeysProc 0 HTML
  126.     html::SaveCache "HTML entity keys" "array set htmlEntityKeys [list [array get htmlEntityKeys]]\rarray set htmlEntityKeysProc [list [array get htmlEntityKeysProc]]"
  127. }
  128.  
  129. #===============================================================================
  130. # ◊◊◊◊ Colors ◊◊◊◊ #
  131. #===============================================================================
  132.  
  133. if {[info exists htmluserColors]} {
  134.     foreach __tmp [array names htmluserColors] {
  135.         append __txt "if {!\[info exists \"colorNumber($__tmp)\"\] && !\[info exists \"colorName($htmluserColors($__tmp))\"\]}"
  136.         append __txt " {set \"colorNumber($__tmp)\" {$htmluserColors($__tmp)}; set \"colorName($htmluserColors($__tmp))\" {$__tmp}}\r"
  137.     }
  138.     if {[info exists __txt]} {
  139.         file::ensureDirExists [file join $PREFS HTML Colors]
  140.         set __fnm ""
  141.         while {[file exists [file join $PREFS HTML Colors [string trim "Default $__fnm"]]]} {
  142.             if {$__fnm == ""} {set __fnm 1} else {incr __fnm}
  143.         }
  144.         html::SaveCache [file join Colors [string trim "Default $__fnm"]] $__txt
  145.         lappend HTMLmodeVars(activeColorSets) [string trim "Default $__fnm"]
  146.         prefs::addArrayElement HTMLmodeVars activeColorSets $HTMLmodeVars(activeColorSets)
  147.     }    
  148. }
  149.  
  150. foreach __tmp [array names htmluserColors] {
  151.     prefs::removeArrayElement htmluserColors $__tmp
  152. }
  153. foreach __tmp [array names htmluserColorname] {
  154.     prefs::removeArrayElement htmluserColorname $__tmp
  155. }
  156.  
  157. #===============================================================================
  158. # ◊◊◊◊ Menu keys ◊◊◊◊ #
  159. #===============================================================================
  160.  
  161. html::ReadMenuKeys
  162. if {[info exists htmlMenuKey]} {
  163.     foreach __tmp {{"HTML/Use Attributes…" "Preferences/Use Attributes…"}
  164.     {"Preferences/Attributes…" "Preferences/Attributes Globally…"}
  165.     {"Utilities/Home Pages…" "Preferences/Home Pages…"}
  166.     {"Utilities/Key Bindings…" "Preferences/Key Bindings…"}
  167.     {"Editing/Change Container…/Change Opening…" "Editing/Edit Tag…"}
  168.     {"Lists/Bulleted/UL no attr" "Lists/Unordered List/UL no attr"}
  169.     {"Lists/Numbered/OL no attr" "Lists/Ordered List/OL no attr"}
  170.     {"Lists/New List Item" "Lists/List Item"}
  171.     {"Lists/Discursive" "Lists/Definition List"}
  172.     {"Lists/New Discursive Entry" "Lists/Definition Entry"}
  173.     {"Style/Import…" "CSS/@Import"}
  174.     {"Style/Font" "Fonts/Font"}
  175.     {"Style/Color" "Color/Color"}
  176.     {"Style/Background" "Color/Background"}
  177.     {"Style/Text" "CSS/Text"}
  178.     {"Style/Margin" "Box/Margin"}
  179.     {"Style/Padding" "Box/Padding"}
  180.     {"Style/Border" "Box/Border"}
  181.     {"Style/Border Width" "Box/Border Width"}
  182.     {"Style/Border Style" "Box/Border Style"}
  183.     {"Style/Border Color" "Box/Border Color"}
  184.     {"Style/Size" "Paged/Size"}
  185.     {"Style/Float" "Visual/Floats"}
  186.     {"Style/Display" "Visual/Display"}
  187.     {"Style/List Style" "Generated/List Style"}
  188.     } {
  189.         if {[info exists htmlMenuKey([lindex $__tmp 0])]} {
  190.             if {![info exists htmlMenuKey([lindex $__tmp 1])]} {
  191.                 set htmlMenuKey([lindex $__tmp 1]) [set htmlMenuKey([lindex $__tmp 0])]
  192.             }
  193.             catch {unset htmlMenuKey([lindex $__tmp 0])}
  194.         }
  195.     }
  196.     foreach __tmp {{"Utilities/Save to FTP Server/Forget Passwords" "FTP/Save to FTP Server" "FTP/Forget Passwords"}
  197.     {"Utilities/Reformat Paragraph/Reformat Document" "Formatting/Reformat Paragraph" "Formatting/Reformat Document"}
  198.     {"Home/Paste URL/Paste Include Tags" "Home/Paste URL" "Home/Paste Include Tags"}
  199.     {"Blocks/Insert Line Breaks/Remove Line Breaks" "Blocks/Insert Line Breaks" "Blocks/Remove Line Breaks"}
  200.     {"Tables/Tabs to Rows…/Rows to Tabs" "Tables/Tabs to Rows…" "Tables/Rows to Tabs"}
  201.     {"Editing/Select Container/Select Opening" "Editing/Select Container" "Editing/Select Tag"}
  202.     {"Editing/Untag/Untag and Select" "Editing/Untag" "Editing/Untag and Select"}
  203.     {"Editing/Tags to Uppercase/Tags to Lowercase" "Editing/Tags to Uppercase" "Editing/Tags to Lowercase"}} {
  204.         if {[info exists htmlMenuKey([lindex $__tmp 0])]} {
  205.             if {![info exists htmlMenuKey([lindex $__tmp 1])]} {
  206.                 set htmlMenuKey([lindex $__tmp 1]) [set htmlMenuKey([lindex $__tmp 0])]
  207.             }
  208.             if {![info exists htmlMenuKey([lindex $__tmp 2])]} {
  209.                 set htmlMenuKey([lindex $__tmp 2]) "<I[set htmlMenuKey([lindex $__tmp 0])]"
  210.             }
  211.             catch {unset htmlMenuKey([lindex $__tmp 0])}
  212.         }
  213.     }
  214.     foreach __tmp {"Style/Clear" "Preferences/JavaScript and CSS…"
  215.     "Utilities/Colors…" "Utilities/Footers…"
  216.     "Extend/New Attributes…" "Extend/New Choices…" "Extend/Change Key Binding…"
  217.     "Extend/Change Type and Layout…" "Extend/Remove Attributes…"} {
  218.         catch {unset htmlMenuKey($__tmp)}
  219.     }
  220.     html::WriteMenuKeys
  221. }
  222.  
  223. if {[file exists [file join $PREFS HTML "HTML menu cache"]]} {
  224.     catch {file delete [file join $PREFS HTML "HTML menu cache"]}
  225. }
  226. if {[file exists [file join $PREFS HTML "HTML Utilities menu cache"]]} {
  227.     catch {file delete [file join $PREFS HTML "HTML Utilities menu cache"]}
  228. }
  229. if {[file exists [file join $PREFS HTML "CSS menu cache"]]} {
  230.     catch {file delete [file join $PREFS HTML "CSS menu cache"]}
  231. }
  232.  
  233. #===============================================================================
  234. # ◊◊◊◊ Custom elements ◊◊◊◊ #
  235. #===============================================================================
  236.  
  237. # Update pre 3.0a7 Custom element prefs
  238. foreach __fil [glob -nocomplain -dir [file join $PREFS HTML "New elements"] *] {
  239.     if {![catch {open $__fil r+} __fid]} {
  240.         set __vers [gets $__fid]
  241.         if {$__vers > 2.9} {
  242.             close $__fid
  243.             continue
  244.         }
  245.         set __out "$htmlVersion\n"
  246.         append __out [gets $__fid] "\n" [gets $__fid] "\n" [gets $__fid] "\n" [gets $__fid] "\n"
  247.         append __out "visible\n"
  248.         append __out [read $__fid]
  249.         seek $__fid 0
  250.         puts $__fid [string trimright $__out]
  251.         close $__fid
  252.     }
  253. }
  254.  
  255. # Updating 2.x  Custom element prefs
  256. if {[file exists [file join $PREFS HTMLadditions.tcl]] &&
  257. ![catch {open [file join $PREFS HTMLadditions.tcl] r} __fid]} {
  258.     message "Updating custom elements…"
  259.     html40.tcl
  260.     html::ReadMenuKeys
  261.     set __additions [read -nonewline $__fid]
  262.     close $__fid
  263.     set __lines [split $__additions "\n"]
  264.  
  265.     set __allattrs [html::GetAllAttrs]
  266.  
  267.     set __tmpSpecURL ""
  268.     set __tmpSpecColor ""
  269.     set __tmpSpecWindow ""
  270.     set __htmlURLAttr [html::GetURLAttrs]
  271.     set __htmlColorAttr [html::GetColorAttrs]
  272.     set __htmlWindowAttr [html::GetAttrOfType frametarget]
  273.     set __newElems ""
  274.     set __modifiedElems ""
  275.     catch {unset __AttrChoices}
  276.     catch {unset __ExtraChoices}
  277.     catch {unset __AttrType}
  278.     catch {unset __AttrRange}
  279.     catch {unset __AttrOptional}
  280.     catch {unset __AttrRequired}
  281.     foreach __line [lrange $__lines 1 end] {
  282.         set __elem [lindex $__line 0]
  283.         if {[lsearch -exact {TEXT CHECKBOX RADIO SUBMIT RESET PASSWORD HIDDEN IMAGE FILE LIVEAUDIO LIVEVIDEO
  284.         "QUICKTIME MOVIE" "QUICKTIME VR" REALAUDIO} $__elem] >=0} {continue}
  285.         set __command [lindex $__line 1]
  286.         set __elemExists [info exists html::ElemAttrOptional($__elem)]
  287.         if {$__elemExists} {
  288.             lappend __modifiedElems $__elem
  289.             foreach __x [list AttrOptional AttrRequired] {
  290.                 if {[info exists html::Elem${__x}($__elem)]} {
  291.                     set htmlElem${__x}1 [string toupper [set html::Elem${__x}($__elem)]]
  292.                 } else {
  293.                     set htmlElem${__x}1 ""
  294.                 }
  295.             }
  296.             set __attrs [concat $htmlElemAttrOptional1 $htmlElemAttrRequired1]
  297.             foreach __at $__attrs {
  298.                 if {[string trimright $__at =] == $__at} {
  299.                     lappend __attrs "${__at}="
  300.                 } else {
  301.                     lappend __attrs [string trimright $__at =]
  302.                 }
  303.             }
  304.         } else {
  305.             lappend __newElems $__elem
  306.             set __attrs {}
  307.         }
  308.         set __var [lindex $__command 1]
  309.         foreach __ucw [list URL Color Window] {
  310.             if {$__var == "html${__ucw}Attr"} {
  311.                 set __tmp [lindex $__command 2]
  312.                 lappend __html${__ucw}Attr $__tmp
  313.                 if {$__ucw == "URL"} {set __AttrType($__elem%$__tmp) url}
  314.                 if {$__ucw == "Color"} {set __AttrType($__elem%$__tmp) color}
  315.                 if {$__ucw == "Window"} {set __AttrType($__elem%$__tmp) frametarget}
  316.             }
  317.             if {$__var == "htmlSpec${__ucw}"} {
  318.                 set __tmpadd [lrange $__command 2 end]
  319.                 foreach __x $__tmpadd {
  320.                     regexp {[^!=](!?=)(.*)} $__x __ __sign __tmp
  321.                     # Only add if attr doesn't exist.
  322.                     if {[lsearch -exact $__attrs $__tmp] < 0} {
  323.                         if {$__sign == "!="} {
  324.                             if {![info exists __AttrType($__elem%$__tmp=)] && ![info exists __AttrType($__elem%[string trim $__tmp =])]} {
  325.                                 set __AttrType($__elem%$__tmp=) other
  326.                             }
  327.                         } else {
  328.                             if {$__ucw == "URL"} {set __AttrType($__elem%$__tmp=) url}
  329.                             if {$__ucw == "Color"} {set __AttrType($__elem%$__tmp=) color}
  330.                             if {$__ucw == "Window"} {set __AttrType($__elem%$__tmp=) frametarget}
  331.                         }
  332.                     }
  333.                 }
  334.             }
  335.         }
  336.         if {[lsearch {htmlURLAttr htmlColorAttr htmlWindowAttr htmlSpecURL \
  337.           htmlSpecColor htmlSpecWindow} $__var] < 0} {
  338.             if {[string match "htmlElemKeyBinding*" $__var]} {
  339.                 if {!$__elemExists} {
  340.                     eval $__command
  341.                 }
  342.                 continue
  343.             }
  344.             if {[string match "htmlElemProc*" $__var]} {
  345.                 if {!$__elemExists} {
  346.                     eval $__command
  347.                 }
  348.                 continue
  349.             }
  350.             if {$__var == "htmlPlugins"} {
  351.                 if {!$__elemExists} {
  352.                     eval $__command
  353.                 }
  354.                 continue
  355.             }
  356.             
  357.               regexp {([^\(]+)\(([^\)]+)\)[ ]+(.+)} [lrange $__command 1 end] __ __var __arg __added
  358.             set __added [string trimleft [string trimright $__added \}] \{]
  359.             foreach __c $__added {
  360.                 if {$__var == "htmlElemAttrChoices1"} {
  361.                     regexp {([^=]*=)(.*)} $__c __ __tmp __ch
  362.                     # Don't add choices if they exist or if attr isn't a choice attr.
  363.                     if {[lsearch -exact $__attrs $__tmp] < 0} {
  364.                         set __AttrType($__elem%$__tmp) choices
  365.                         lappend __AttrChoices($__elem%$__tmp) $__ch
  366.                     } elseif {[html::GetAttrType $__elem $__tmp] == "choices"} {
  367.                         if {[lsearch -exact [html::GetAttrChoices $__elem $__tmp] $__ch] < 0} {
  368.                             lappend __ExtraChoices($__elem) $__tmp
  369.                             lappend __AttrChoices($__elem%$__tmp) $__ch
  370.                         }
  371.                     }
  372.                 }
  373.                 if {$__var == "htmlElemAttrNumber1"} {
  374.                     regexp {([^=]*=)(.*)} $__c __ __tmp __num
  375.                     if {[lsearch -exact $__attrs $__tmp] < 0} {
  376.                         regexp {([^:]+:[^:]+):(.*)} $__num __ __val __proc
  377.                         if {$__proc == "n"} {
  378.                             set __AttrType($__elem%$__tmp) integer
  379.                         } else {
  380.                             set __AttrType($__elem%$__tmp) length
  381.                         }
  382.                         set __AttrRange($__elem%$__tmp) $__val
  383.                     }
  384.                 }
  385.                 if {$__var == "htmlElemAttrOptional1"} {
  386.                     if {[lsearch -exact $__attrs $__c] < 0} {
  387.                         lappend __AttrOptional($__elem) $__c
  388.                         if {![info exists __AttrType($__elem%$__c)] && ![info exists __AttrType($__elem%[string trim $__c =])]} {
  389.                             if {[regexp = $__c]} {
  390.                                 if {[lcontains __htmlURLAttr $__c]} {
  391.                                     set __AttrType($__elem%$__c) url
  392.                                 } elseif {[lcontains __htmlColorAttr $__c]} {
  393.                                     set __AttrType($__elem%$__c) color
  394.                                 } elseif {[lcontains __htmlWindowAttr $__c]} {
  395.                                     set __AttrType($__elem%$__c) frametarget
  396.                                 } else {
  397.                                     set __AttrType($__elem%$__c) other
  398.                                 }
  399.                             } else {
  400.                                 set __AttrType($__elem%$__c) flag
  401.                             }
  402.                         }
  403.                     }
  404.                 }
  405.                 if {$__var == "htmlElemAttrRequired1"} {
  406.                     if {[lsearch -exact $__attrs $__c] < 0} {
  407.                         lappend __AttrRequired($__elem) $__c
  408.                         if {![info exists __AttrType($__elem%$__c)] && ![info exists __AttrType($__elem%[string trim $__c =])]} {
  409.                             if {[regexp = $__c]} {
  410.                                 if {[lcontains __htmlURLAttr $__c]} {
  411.                                     set __AttrType($__elem%$__c) url
  412.                                 } elseif {[lcontains __htmlColorAttr $__c]} {
  413.                                     set __AttrType($__elem%$__c) color
  414.                                 } elseif {[lcontains __htmlWindowAttr $__c]} {
  415.                                     set __AttrType($__elem%$__c) frametarget
  416.                                 } else {
  417.                                     set __AttrType($__elem%$__c) other
  418.                                 }
  419.                             } else {
  420.                                 set __AttrType($__elem%$__c) flag
  421.                             }
  422.                         }
  423.                     }
  424.                 }
  425.             }
  426.         }
  427.     }
  428.     file::ensureDirExists [file join $PREFS HTML "New elements"]
  429.     file::ensureDirExists [file join $PREFS HTML "Modified elements"]
  430.     foreach __tmp [lunique $__newElems] {
  431.         set __out "$htmlVersion\n"
  432.         set __input [string match htmlBuildInputElem* $htmlElemProc($__tmp)]
  433.         if {[lcontains htmlPlugins $__tmp] || $__input} {
  434.             append __out "open00\n"
  435.         } else {
  436.             set __proc [lindex $htmlElemProc($__tmp) 0]
  437.             if {$__proc == "htmlBuildElem"} {append __out "nocr\n"}
  438.             if {$__proc == "htmlBuildCRElem" && [llength $htmlElemProc($__tmp)] == 2} {append __out "cr0\n"}
  439.             if {$__proc == "htmlBuildCRElem" && [llength $htmlElemProc($__tmp)] == 3} {append __out "cr1\n"}
  440.             if {$__proc == "htmlBuildCR2Elem"} {append __out "cr2\n"}
  441.             if {$__proc == "htmlBuildOpening"} {append __out "open[join [lrange $htmlElemProc($__tmp) 2 3] ""]\n"}
  442.         }
  443.         append __out "Custom\n"
  444.         if {[lcontains htmlPlugins $__tmp]} {
  445.             append __out "plugin\n"
  446.         } elseif {$__input} {
  447.             append __out "input\n"
  448.         } else {
  449.             append __out "normal\n"
  450.         }
  451.         append __out "$htmlElemKeyBinding($__tmp)\n"
  452.         append __out "visible\n"
  453.         if {[info exists __AttrOptional($__tmp)]} {
  454.             foreach __a $__AttrOptional($__tmp) {
  455.                 if {![info exists __AttrType($__tmp%$__a)]} {set __AttrType($__tmp%$__a) other}
  456.                 append __out "$__a $__AttrType($__tmp%$__a) 0"
  457.                 if {$__AttrType($__tmp%$__a) == "choices" && [info exists __AttrChoices($__tmp%$__a)]} {append __out " " $__AttrChoices($__tmp%$__a)}
  458.                 if {($__AttrType($__tmp%$__a) == "integer" || $__AttrType($__tmp%$__a) == "length") &&
  459.                 [info exists __AttrRange($__tmp%$__a)]} {
  460.                     append __out " " $__AttrRange($__tmp%$__a)
  461.                 }
  462.                 append __out "\n"
  463.             }
  464.         }
  465.         if {[info exists __AttrRequired($__tmp)]} {
  466.             foreach __a $__AttrRequired($__tmp) {
  467.                 if {![info exists __AttrType($__tmp%$__a)]} {set __AttrType($__tmp%$__a) other}
  468.                 append __out "$__a $__AttrType($__tmp%$__a) 1"
  469.                 if {$__AttrType($__tmp%$__a) == "choices" && [info exists __AttrChoices($__tmp%$__a)]} {append __out " " $__AttrChoices($__tmp%$__a)}
  470.                 if {$__AttrType($__tmp%$__a) == "integer" || $__AttrType($__tmp%$__a) == "length" && 
  471.                 [info exists __AttrRange($__tmp%$__a)]} {
  472.                     append __out " " $__AttrRange($__tmp%$__a)
  473.                 }
  474.                 append __out "\n"
  475.             }
  476.         }
  477.         if {$__input} {
  478.             if {[file exists [file join $PREFS HTML "New elements" "INPUT TYPE=$__tmp"]] || 
  479.             [catch {open [file join $PREFS HTML "New elements" "INPUT TYPE=$__tmp"] w} __fid]} {continue}
  480.         } else {
  481.             if {[file exists [file join $PREFS HTML "New elements" "$__tmp"]] || 
  482.             [catch {open [file join $PREFS HTML "New elements" "$__tmp"] w} __fid]} {continue}
  483.         }
  484.         set htmlMenuKey(Custom/[string index $__tmp 0][string tolower [string range $__tmp 1 end]]) $htmlElemKeyBinding($__tmp)
  485.         puts -nonewline $__fid $__out
  486.         close $__fid
  487.     }
  488.     foreach __tmp [lunique $__modifiedElems] {
  489.         set __out "$htmlVersion\n"
  490.         if {[info exists __AttrOptional($__tmp)]} {
  491.             foreach __a $__AttrOptional($__tmp) {
  492.                 if {![info exists __AttrType($__tmp%$__a)]} {set __AttrType($__tmp%$__a) other}
  493.                 append __out "$__a $__AttrType($__tmp%$__a) 0"
  494.                 if {$__AttrType($__tmp%$__a) == "choices" && [info exists __AttrChoices($__tmp%$__a)]} {append __out " " $__AttrChoices($__tmp%$__a)}
  495.                 if {($__AttrType($__tmp%$__a) == "integer" || $__AttrType($__tmp%$__a) == "length") &&
  496.                 [info exists __AttrRange($__tmp%$__a)]} {
  497.                     append __out " " $__AttrRange($__tmp%$__a)
  498.                 }
  499.                 append __out "\n"
  500.             }
  501.         }
  502.         if {[info exists __AttrRequired($__tmp)]} {
  503.             foreach __a $__AttrRequired($__tmp) {
  504.                 if {![info exists __AttrType($__tmp%$__a)]} {set __AttrType($__tmp%$__a) other}
  505.                 append __out "$__a $__AttrType($__tmp%$__a) 1"
  506.                 if {$__AttrType($__tmp%$__a) == "choices" && [info exists __AttrChoices($__tmp%$__a)]} {append __out " " $__AttrChoices($__tmp%$__a)}
  507.                 if {$__AttrType($__tmp%$__a) == "integer" || $__AttrType($__tmp%$__a) == "length" && 
  508.                 [info exists __AttrRange($__tmp%$__a)]} {
  509.                     append __out " " $__AttrRange($__tmp%$__a)
  510.                 }
  511.                 append __out "\n"
  512.             }
  513.         }
  514.         if {[info exists __ExtraChoices($__tmp)]} {
  515.             foreach __a [lunique $__ExtraChoices($__tmp)] {
  516.                 if {[info exists __AttrChoices($__tmp%$__a)]} {append __out "#" $__a " " $__AttrChoices($__tmp%$__a) "\n"}
  517.             }
  518.         }
  519.         if {$__out == "$htmlVersion\n" || [file exists [file join $PREFS HTML "Modified elements" "$__tmp"]] || 
  520.         [catch {open [file join $PREFS HTML "Modified elements" "$__tmp"] w} __fid]} {continue}
  521.         puts -nonewline $__fid $__out
  522.         close $__fid
  523.     }
  524.     html::WriteMenuKeys
  525.     rename html40.tcl ""
  526.     catch {file delete [file join $PREFS HTMLadditions.tcl]}
  527.     if {[file exists [file join $PREFS HTML "Additions cache"]]} {
  528.         catch {file delete [file join $PREFS HTML "Additions cache"]}
  529.     }
  530.     if {[file exists [file join $PREFS HTML "Additions coloring cache"]]} {
  531.         catch {file delete [file join $PREFS HTML "Additions coloring cache"]}
  532.     }
  533.     if {[file exists [file join $PREFS HTML "CSS keybindings cache"]]} {
  534.         catch {file delete [file join $PREFS HTML "CSS keybindings cache"]}
  535.     }
  536. }
  537.  
  538. set html::PrefsVersion $htmlVersion
  539. prefs::add html::PrefsVersion $htmlVersion
  540.  
  541. message "Updating of preferences done."
  542.